home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Rinaldi / HC 1.2 & 2.0 / ShowHideFolder 1.2.cpt / ShowHideFolder 1.2 / card_3055.txt < prev    next >
Text File  |  1991-12-25  |  3KB  |  112 lines
  1. -- card: 3055 from stack: in.2
  2. -- bmap block id: 3273
  3. -- flags: 0000
  4. -- background id: 2661
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 01
  10. -- high flags: 0007
  11. -- rect: left=69 top=68 right=252 bottom=434
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 3
  16. -- text size: 9
  17. -- style flags: 0
  18. -- line height: 12
  19. -- part name: 
  20.  
  21.  
  22. -- part 25 (button)
  23. -- low flags: 00
  24. -- high flags: A003
  25. -- rect: left=201 top=278 right=316 bottom=346
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 1
  29. -- font id: 0
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: ShowHideFolder
  34. ----- HyperTalk script -----
  35. on mouseUp
  36.   get folderName("Select Folder to change :")
  37.   if it is empty
  38.   then exit mouseUp
  39.   put it into Folder
  40.   answer "Invisible :" with "False" or "True"
  41.   ShowHideFolder Folder,it
  42.   if the Result ‚↠empty
  43.   then answer the Result
  44. end mouseUp
  45.  
  46.  
  47.  
  48. -- part contents for card part 1
  49. ----- text -----
  50.  
  51.  
  52.                                           ShowHideFolder 1.2
  53.  
  54.                                           by Fr√©d√©ric RINALDI
  55.  
  56.  
  57. DESCRIPTION
  58. ------------
  59.   ShowHideFolder allows make a folder visible/invisible.
  60.  
  61. SYNTAX
  62. --------
  63. ShowHideFolder <folder path>,<invisible>
  64.  
  65. PARAMETERS
  66. ------------
  67.    <folder path> is the folder complete pathName, with or without trailing colon. If only a name is supplied, the folder is considered in the same folder as the current stack.
  68.  
  69.    <invisible> is a boolean, TRUE making the folder invisible.
  70.  
  71.    Using "!", "?" or "=" as first parameter will return an online help (resp. copyright, syntax and output).
  72.  
  73. USING
  74. -----
  75. If an error occurs, ShowHideFolder can return :
  76.      "Error : Not a file"
  77.      "Error : Not a folder"
  78.      "Error : Alias file not supported"
  79.      "Error : Volume not found"
  80.      "Error : Bad Name"
  81.      "Error : File not found"
  82.      "Error : Folder not found"
  83.      "Error : File is busy"
  84.      "Error : I/O Error"
  85.      "Error : Folder is full"
  86.      "Error : Volume is locked"
  87.      "Error : No resource fork"
  88.      "Error : Duplicate file/folder name"
  89.      "Error : Moving whole volume not allowed"
  90.      "Error : Not an AppleShare volume"
  91.      "Error : AppleShare insufficient privileges"
  92.      "Error : Missing or empty parameter(s)"
  93.      "Error : Second param must be boolean"
  94.  
  95.  
  96. HISTORY
  97. --------
  98. 1.2 :                                                                                          12/25/91
  99. ‚Ä¢ Fixed alias file bug under System 7.0.1
  100.  
  101. 1.1 :                                                                                          08/04/91
  102. ‚Ä¢ Added support for System 7.0 alias files
  103. ‚Ä¢ General enhancement of the code
  104. ‚Ä¢ Added "=" param for online help
  105.  
  106. --------------------------------------------------------------------
  107. This (these) external(s) is (are) FreeWare,allowing unlimited use in any non-commercial stack. You just need in this case to mention the author's name and copyright in your stack.
  108. Any commercial use must be licensed and aknowledged by the author.
  109.  
  110.                                     ¬© Frederic RINALDI 1991
  111.  
  112. AppleLink: RINALDI1        CalvaCom : FR10        Compuserve : 71170,2111